Option Explicit
Sub F_Sample046()
   'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
   'Microsoft ADO Ext. 2.1 for DDL and Security ]wޥζ
   'HոF_Sample032ҫإߪ	NewDB.mdb
    Dim myCon     As New ADODB.Connection
    Dim myCat     As New ADOX.Catalog
    Dim myFileName As String
    myFileName = "NewDB.mdb"				'ΨӶiRɮ
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
    Set myCat.ActiveConnection = myCon
   'R檺Ҧ
    myCon.Execute ("DELETE * FROM " & myCat.Tables(0).Name)
   'R
    myCat.Tables.Delete myCat.Tables(0).Name
   'Rd
    myCat.Procedures.Delete myCat.Procedures(0).Name
    myCon.Close
    Set myCon = Nothing					'ܼƪR
    Set myCat = Nothing
End Sub
